6850 IF MX(I)-MSX(O)>0 THEN MSX(O)=MSX(O)+MISAH(MISA) ELSE MSX(O)=MSX(O)-MISAH(MISA)
6860 IF MY(I)-MSY(O)>0 THEN MSY(O)=MSY(O)+MISAH(MISA) ELSE MSY(O)=MSY(O)-MISAH(MISA)
6870 IF MZ(I)-MSZ(O)>0 THEN MSZ(O)=MSZ(O)+MISAH(MISA) ELSE MSZ(O)=MSZ(O)-MISAH(MISA)
6880 IF MSX(O)<MAXX1 THEN MSX(O)=MAXX2
6890 IF MSY(O)<MAXY1 THEN MSY(O)=MAXY2
6900 IF MSZ(O)<1 THEN MSZ(O)=1
6910 IF MSX(O)>MAXX2 THEN MSX(O)=MAXX1
6920 IF MSY(O)>MAXY2 THEN MSY(O)=MAXY1
6930 IF MX(I)>MSX(O)-MISAH(MISA) THEN IF MX(I)<MSX(O)+MISAH(MISA) THEN IF MY(I)>MSY(O)-MISAH(MISA) THEN IF MY(I)<MSY(O)+MISAH(MISA) THEN IF MZ(I)>MSZ(O)-MISAH(MISA) THEN IF MZ(I)<MSZ(O)+MISAH(MISA) THEN GOSUB *処理
6940 MST(O)=MST(O)+1
6950 IF MST(O)=MISAT(MISA) THEN MMISS(O)=1
6960 NEXT
6970 RETURN
6980 *OOKISA
6990 IF SL(I)>270 THEN OKI(I)=1
7000 IF 270>SL(I) AND SL(I)>220 THEN OKI(I)=2
7010 IF 220>SL(I) AND SL(I)>180 THEN OKI(I)=3
7020 IF 150>SL(I) AND SL(I)>120 THEN OKI(I)=4
7030 IF 120>SL(I) AND SL(I)>100 THEN OKI(I)=5
7040 IF 100>SL(I) AND SL(I)>90 THEN OKI(I)=6
7050 IF 90 >SL(I) AND SL(I)>80 THEN OKI(I)=7
7060 IF 80 >SL(I) AND SL(I)>70 THEN OKI(I)=8
7070 IF 70 >SL(I) AND SL(I)>60 THEN OKI(I)=10
7080 IF 60 >SL(I) AND SL(I)>50 THEN OKI(I)=30
7090 IF 50 >SL(I) AND SL(I)>40 THEN OKI(I)=40
7100 IF 40 >SL(I) AND SL(I)>30 THEN OKI(I)=50
7110 IF 30 >SL(I) AND SL(I)>20 THEN OKI(I)=65
7120 IF 20 >SL(I) AND SL(I)>10 THEN OKI(I)=80
7130 IF 10 >SL(I) AND SL(I)>1 THEN OKI(I)=90
7140 IF SL(I)=0 THEN OKI(I)=100
7150 RETURN
7160 *MOKI
7170 IF MSL(O)>100 THEN MOKI(O)=1
7180 IF 100>MSL(O) AND MSL(O)>70 THEN MOKI(O)=2
7190 IF 70 >MSL(O) AND MSL(O)>50 THEN MOKI(O)=3
7200 IF 50 >MSL(O) AND MSL(O)>45 THEN MOKI(O)=4
7210 IF 45 >MSL(O) AND MSL(O)>40 THEN MOKI(O)=5
7220 IF 35 >MSL(O) AND MSL(O)>30 THEN MOKI(O)=6
7230 IF 30 >MSL(O) AND MSL(O)>25 THEN MOKI(O)=7
7240 IF 25 >MSL(O) AND MSL(O)>20 THEN MOKI(O)=8
7250 IF 20 >MSL(O) AND MSL(O)>10 THEN MOKI(O)=9
7260 IF 10 >MSL(O) AND MSL(O)>5 THEN MOKI(O)=10
7270 IF 5 >MSL(O) AND MSL(O)>1 THEN MOKI(O)=15
7280 IF MSL(O)=0 THEN MOKI(O)=20
7290 RETURN
7300 *SET_UP
7310 RETURN
7320 *SYS確認
7330 IF SET2(1)=1 THEN MAXX1=15:MAXY1=15:MAXX2=305:MAXY2=155
7340 IF SET2(1)=2 THEN MAXX1=305:MAXY1=155:MAXX2=15:MAXY2=15